home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zk.d64 / asc.on'irq < prev    next >
Text File  |  2007-03-01  |  2KB  |  73 lines
  1.      --------------
  2.      ON PACKAGE IRQ
  3.      --------------
  4.      WE CHANGED THE PACKAGE IRQ IN A
  5.      WAY LEN ASKED FOR IN COMAL TO
  6.      DAY #15.
  7.      NOW WE USE THE FUNCTION EVENT(X)
  8.      IN THE PACKAGE FOR TESTING THE
  9.      FOLLOWING EVENTS:
  10.         X  EVENT
  11.        ---------------------------
  12.         0  [ESC] PRESSED
  13.         1  TIME EQUALS ALARM TIME
  14.         2  SPRITE/SPRITE COLLISION
  15.         3  SPRITE/DATA COLLISION
  16.         4  COUNTDOWN EQUALS 0
  17. ;
  18.      LEN ASKED FOR DIFFERENT NAMES FOR
  19.      THE EVENTS, BUT WE DECIDED NOT TO
  20.      DO SO.
  21.      WE TRIED TO DO THE SAME AS FOR THE
  22.      INQ-FUNCTION IN THE GRAPHICS
  23.      PACKAGE.
  24. ;
  25. ;
  26.      THE FUNCTIONS SSCOL(X) AND
  27.      SDCOL(X) TEST THE SPRITE COLLISI-
  28.      ONS WHERE X EQUALS THE SPRITE NUM-
  29.      BER.
  30.      ALL FUNCTIONS RETURN THE VALUES
  31.      TRUE (=1) AND FALSE (=0).
  32.      THE FUNCTIONS STILL ACT ON A REGIS
  33.      TER, BUT NOW, AFTER A REGISTER IS
  34.      READ, ONLY THE ASKING BIT IS
  35.      RESET.
  36.      CHECKING MORE EVENTS AT A TIME IS
  37.      STILL POSSIBLE WITH A STRUCTURE
  38.      LIKE
  39.      //
  40.      SPR:=3
  41.      IF EVENT(2) OR EVENT(3) THEN
  42.       IF SSCOL(SPR) OR SDCOL(SPR) THEN
  43.        //
  44.        // HANDLE COLLISON
  45.        //
  46.       ENDIF
  47.      ENDIF
  48.      //
  49. ;
  50.      WARNING
  51.      -------
  52.      BECAUSE THE IRQ VECTORS ARE CHAN-
  53.      GED, THE PACKAGE CAN INTERFER WITH
  54.      OTHER PACKAGES WHICH MAKE USE OF
  55.      THESE VECTORS!
  56. ;
  57.      SEE DEMO/EVENT??? ON DISK. THESE
  58.      PROGRAMS ARE THE SAME AS THE FOR-
  59.      MER PROGRAMS, BUT CHANGED TO WORK
  60.      WITH THE 'NEW' IRQ PACKAGE.
  61. ;
  62. ;
  63.      HOPY YOU LIKE IT MORE NOW,
  64. ;
  65.      DICK
  66. ;
  67. ;
  68.      P.S. VERSION'IRQ$ IS IMPLEMENTED
  69.           IN THIS VERSION.
  70.           THE OLD IRQ PACKAGE IS ON
  71.           DISK TOO FOR REFERENCE.
  72. ;
  73.